unit URelatorioModelo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RLReport;

type
  TFRelatorioModelo = class(TForm)
    RLReport: TRLReport;
    RLBand1: TRLBand;
    rlEmpresa: TRLLabel;
    rlSisLocal: TRLLabel;
    rlname: TRLLabel;
    RLDBText1: TRLDBText;
    rlSubTitulo: TRLLabel;
    RLMemo: TRLMemo;
    rlInfo: TRLSystemInfo;
    rlInfo1: TRLLabel;
    RLSystemInfo1: TRLSystemInfo;
    procedure RLBand1BeforePrint(Sender: TObject; var PrintIt: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRelatorioModelo: TFRelatorioModelo;

implementation

{$R *.dfm}

procedure TFRelatorioModelo.RLBand1BeforePrint(Sender: TObject; var PrintIt: Boolean);
begin
  if RLReport.PageNumber <> 1 then
  begin
    RLMemo.Lines.Clear;
    RLMemo.Lines.Add('');
    RLMemo.Lines.Add('');
  end;
end;

end.
